fplot(@(x)(0.6/(0.5*0.6+0.5*0.2)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))/((1+0.6-x)*(0.6/(0.5*0.6+0.5*0.2))+(1-0.6)*((1-0.6)/(1-(0.5*0.6+0.5*0.2)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))),[0 1],':');
grid on
xlabel('The Competence of the Government E(\gamma)')
ylabel('The Probability of Learning from Other Sources \rho')
hold on
fplot(@(x)(0.6/(0.5*0.6+0.5*0.2)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))/((1+0.2-x)*(0.6/(0.5*0.6+0.5*0.2))+(1-0.2)*((1-0.6)/(1-(0.5*0.6+0.5*0.2)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))),[0 1],'-')
hold on
fplot(@(x)(0.6/(0.5*0.6+0.5*0.4)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.4*x)))/((1+0.6-x)*(0.6/(0.5*0.6+0.5*0.4))+(1-0.6)*((1-0.6)/(1-(0.5*0.6+0.5*0.4)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.4*x)))),[0 1],':');
hold on
fplot(@(x)(0.6/(0.5*0.6+0.5*0.4)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.4*x)))/((1+0.4-x)*(0.6/(0.5*0.6+0.5*0.4))+(1-0.4)*((1-0.6)/(1-(0.5*0.6+0.5*0.4)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.4*x)))),[0 1],'-')
hold on
fplot(@(x)(0.6/(0.5*0.6+0.5*0.5)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.5*x)))/((1+0.6-x)*(0.6/(0.5*0.6+0.5*0.5))+(1-0.6)*((1-0.6)/(1-(0.5*0.6+0.5*0.5)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.5*x)))),[0 1],':');
hold on
fplot(@(x)(0.6/(0.5*0.6+0.5*0.5)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.5*x)))/((1+0.5-x)*(0.6/(0.5*0.6+0.5*0.5))+(1-0.5)*((1-0.6)/(1-(0.5*0.6+0.5*0.5)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.5*x)))),[0 1],'-')
hold off
ylim([0 1])
set(gca,'XTick',(0:0.1:1))
h=legend('$\rho_h(\underline{\mu}=0.2)$','$\rho _l(\underline{\mu}=0.2)$','$\rho_h(\underline{\mu}=0.4)$','$\rho _l(\underline{\mu}=0.4)$','$\rho_h(\underline{\mu}=0.5)$','$\rho _l(\underline{\mu}=0.5)$')
set(h, 'Interpreter','LaTex','FontSize',5)
print('Comparative2','-dpng','-r800')